home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / FStein8a.cpp < prev    next >
C/C++ Source or Header  |  1999-01-29  |  685b  |  23 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4. //---------------------------------------------------------------------------
  5. USEFORM("Monstr8a.cpp", Form1);
  6. USERES("FStein8a.res");
  7. //---------------------------------------------------------------------------
  8. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  9. {
  10.     try
  11.     {
  12.         Application->Initialize();
  13.         Application->CreateForm(__classid(TForm1), &Form1);
  14.         Application->Run();
  15.     }
  16.     catch (Exception &exception)
  17.     {
  18.         Application->ShowException(&exception);
  19.     }
  20.     return 0;
  21. }
  22. //---------------------------------------------------------------------------
  23.